home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / demo2.bas < prev    next >
BASIC Source File  |  1999-06-15  |  2KB  |  75 lines
  1. /*==== -: "OBJ_18_.SP" ｶﾝｲ ﾃﾞﾓ ﾌﾟﾛｸﾞﾗﾑ :- ====
  2. int i,j,pl
  3. int anm_flg,anm_flg2,anm_flg3,anm_flg4
  4. int palet_block=0,plb
  5. char kyc
  6. dim int tbl0(31)={&H0100,&H0101,&H0102,&H0103,&H0104,&H0105,&H0106,&H0107,
  7.           &H0108,&H8107,&H8106,&H8105,&H8104,&H8103,&H8102,&H8101,
  8.           &H8100,&HC101,&HC102,&HC103,&HC104,&HC105,&HC106,&HC107,
  9.           &H4108,&H4107,&H4106,&H4105,&H4104,&H4103,&H4102,&H4101}
  10.  
  11. /*==== -: screen init. :- ====
  12. screen 0,2,1,1 : window(  0,  0,511,511)
  13. vpage(&B01) : apage(&B00)
  14. sp_init() : sp_disp(1)
  15.  
  16. spfile_def("OBJ_18_.SP",0)
  17. palfile_def("OBJ_18.PAL",1)
  18.  
  19. for i=0 to 15
  20.     palet(i,sp_color(i,,1+palet_block))
  21.     fill(i*8,16, i*8+6,22,i)
  22. next
  23.  
  24. /*==== -: main demo :- ====
  25.  
  26. while 1
  27.     kyc=asc(inkey$(0))
  28.     if kyc = &H1B then break
  29.     if kyc = &H20 then {
  30.         palet_block=palet_block+1
  31.         if palet_block = 14 then palet_block=0
  32.         locate 0,0 : print using "P.B.:##";palet_block+1
  33.         for i=0 to 15
  34.             palet(i,sp_color(i,,1+palet_block))
  35. /*            fill(i*8,32,i*8+6,38,i)
  36.         next
  37.         plb=palet_block shl 8
  38.     }
  39.  
  40.     anm_flg=anm_flg+1 and 31
  41.     anm_flg2=anm_flg2+1 and 63
  42.     anm_flg3=anm_flg3+1 and 15
  43.     anm_flg4=anm_flg4+1 and 7
  44.  
  45.     v_disp()
  46.     for i=0 to 7
  47.         sp_set(   i, 24+i*24, 64,plb+tbl0(anm_flg)+i*10,3)
  48.         sp_set( 8+i, 24+i*24, 96,plb+tbl0((anm_flg2 shr 1))+i*10,3)
  49.     next
  50.  
  51.     v_disp()
  52.  
  53.     sp_set(16, 24,128,&H150+plb+(anm_flg3 shr 1),3)
  54.     sp_set(17, 48,128,&H150+plb+(anm_flg shr 2),3)
  55.  
  56.     sp_set(18, 72,128,&H158+plb+(anm_flg3 shr 1),3)
  57.     sp_set(19, 96,128,&H158+plb+(anm_flg shr 2),3)
  58.  
  59.     sp_set(20,120,128,&H160+plb+anm_flg4,3)
  60.     sp_set(21,144,128,&H160+plb+(anm_flg3 shr 1),3)
  61.  
  62.     sp_set(22,168,128,&H168+plb+anm_flg4,3)
  63.     sp_set(23,192,128,&H168+plb+(anm_flg3 shr 1),3)
  64.  
  65.  
  66.     sp_set(24, 24,160,&H170+plb+(anm_flg4 shr 1),3)
  67.     sp_set(25, 48,160,&H170+plb+(anm_flg3 shr 2),3)
  68.  
  69.     sp_set(26, 72,160,&H178+plb+(anm_flg4 shr 1),3)
  70.     sp_set(27, 96,160,&H178+plb+(anm_flg3 shr 2),3)
  71.  
  72.     sp_set(28,120,160,&H17C+plb+(anm_flg4 shr 1),3)
  73.     sp_set(29,144,160,&H17C+plb+(anm_flg3 shr 2),3)
  74. endwhile
  75.